(sh-mark-line): Add help-echo to mouse-highlighted text.

diff --git a/lisp/progmodes/sh-script.el b/lisp/progmodes/sh-script.el
index 80d49ea5e43e569488c0e239de7b6a90de5c47b6..6755fe0e8dee0bbe2212bbe797607794fe049dd0 100644 (file)
--- a/lisp/progmodes/sh-script.el
+++ b/lisp/progmodes/sh-script.el
@@ -2644,7 +2644,10 @@ so that `occur-next' and `occur-prev' will work."
          (setq occur-point (point)))
       (insert message)
       (if point
-         (put-text-property start (point) 'mouse-face 'highlight))
+         (add-text-properties
+          start (point)
+          '(mouse-face highlight
+            help-echo "mouse-2: go to the line where I learned this")))
       (insert "\n")
       (if point
          (progn